home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / windows / tintools.zip / TINTOOLS.TPW < prev    next >
Text File  |  1996-06-14  |  10KB  |  242 lines
  1. #! ==========================================================================
  2. #! V1.0 6/01/1996
  3. #! ---------------------------------------------------------------------------
  4. #!
  5. #! (c) 1996, Reichenberger Development Incorporated - All Rights Reserved, World Wide
  6. #! (c) 1996, Tin Man Software Corporation - All Rights Reserved World Wide
  7. #!
  8. #! ---------------------------------------------------------------------------
  9. #EXTENSION(TINTOOLS,'Add Tintools'), APPLICATION, LAST,HLP('~$Introduction')
  10. #!
  11. #BUTTON ('TIN Tools For Windows'), AT(10,, 180)
  12.   #SHEET
  13.     #TAB ('General'), HLP('~General')
  14.       #BOXED (''), AT(, 15,, 50)
  15.        #PROMPT('&Enable Report Viewer', CHECK),%TINGLOBALVIEWER,AT(10)
  16.        #PROMPT('&Add Printer Properties', CHECK),%TINGLOBALPRNPROP,AT(10)
  17.       #ENDBOXED
  18.         #DISPLAY('We hope you enjoy these tools'), AT(, 102)
  19.         #DISPLAY('from the land of OZ!!!!!.')
  20.         #DISPLAY('TINTOOLS are free and may not be sold.')
  21.     #ENDTAB
  22.   #ENDSHEET
  23. #ENDBUTTON
  24. #! ------------------------------------------------------------------------
  25. #AT (%CustomGlobalDeclarations)
  26. #IF (%TINGLOBALVIEWER)
  27. #DECLARE (%TINVIEWFILENAME,STRING)
  28. #DECLARE (%TINVIEWCLIPNAME,STRING)
  29. #DECLARE (%TMBUILDFILE,STRING)
  30. #SET (%TINVIEWCLIPNAME, SUB(%Application, 1, 5))
  31. #SET (%TINVIEWFILENAME, %TINVIEWCLIPNAME & '_VW.CLW')
  32. #SET (%TMBUILDFILE, %Application & '.TM1$')
  33. #PROJECT(%TINVIEWFILENAME)
  34. #FIX(%Driver,'DOS')
  35. #ADD(%UsedDriverDLLs,%DriverDLL)
  36. #PROJECT(%DriverLIB)
  37. #ENDIF
  38. #ENDAT
  39. #! ------------------------------------------------------------------------
  40. #AT (%AfterGlobalIncludes),WHERE(%TINGLOBALPRNPROP)
  41.    INCLUDE('PRNPROP.CLW')
  42. #ENDAT
  43. #! ------------------------------------------------------------------------
  44. #AT (%GlobalMap)
  45. #IF (%TINGLOBALVIEWER)
  46. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  47.  MODULE('%TINVIEWFILENAME')    !REPORT VIEWER
  48.     TIN_REPORTVIEWER(QUEUE,<STRING>),LONG
  49.  END
  50. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  51. #CREATE (%TMBuildFile)
  52.   MEMBER('%APPLICATION')
  53.   INCLUDE('TMVIEWER.CLW')
  54. #CLOSE
  55. #REPLACE (%TINVIEWFILENAME,%TMBUILDFILE)
  56. #ENDIF
  57. #ENDAT
  58. #AT (%GlobalData)
  59. #ENDAT
  60. #ATSTART
  61. #ENDAT
  62. #AT (%ProgramSetup)
  63. #ENDAT
  64. #! ==========================================================================
  65. #! V1.50 5/01/1996
  66. #! ---------------------------------------------------------------------------
  67. #! (c) 1996, Reichenberger Development Incorporated - All Rights Reserved, World Wide
  68. #! (c) 1996, Tin Man Software Corporation - All Rights Reserved World Wide
  69. #! ---------------------------------------------------------------------------
  70. #EXTENSION (TTreportviewer, 'TINTOOLS Report Viewer'), FIRST, PROCEDURE
  71. #BOXED ('Report View Options')
  72. #DISPLAY('')
  73. #PROMPT ('&Enable Viewer', CHECK), %TINReportViewer,AT(10)
  74. #PROMPT ('&Prompt User  ', CHECK), %TINReportViewerBox,AT(10)
  75. #DISPLAY('')
  76. #DISPLAY('Enter Report Title For Viewer Or Leave Blank')
  77. #PROMPT ('',@S50), %TINReportViewerTitle,AT(10,,180)
  78. #DISPLAY('')
  79. #ENDBOXED
  80.  
  81. #AT (%DataSectionBeforeReport), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
  82. #IF (%TINReportViewer)
  83. #IF (%TINReportViewerBox)
  84. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  85. TINPRINTOPTION1   BYTE
  86. TINCURPRINTER     STRING(50)
  87. XXXCURPRINTER     STRING(50),OVER(TINCURPRINTER)
  88. TINCOPIES         LONG(1)
  89. TINCOLLATE        BYTE
  90. TINSAVEFILE       BYTE
  91. TINFILENAME       STRING(100)
  92.  
  93. !AND %TINGLOBALVIEWER
  94. Printoptwin WINDOW('Report Destination'),AT(,,240,92),CENTER,GRAY
  95.        STRING('Current Printer:'),AT(80,13),FONT('Arial',8,,FONT:bold),USE(?String2)
  96.        OPTION,AT(6,14,58,36),FONT('Arial',8,,FONT:regular),USE(TINPRINTOPTION1),BOXED
  97.          RADIO('View Report'),AT(14,23),FONT('Arial',8,,FONT:regular),MSG('View The Report'),TIP('View The Report'), |
  98.              USE(?TINPRINTOption1:Radio1),VALUE('1')
  99.          RADIO('Print Report'),AT(14,33),FONT('Arial',8,,FONT:regular),MSG('Print The Report Without Viewing'), |
  100.              TIP('Print The Report Without Viewing'),USE(?TINPRINTOPTION1:Radio2),VALUE('2')
  101.        END
  102.        STRING(@s50),AT(85,24),USE(XXXCURPRINTER)
  103.        BUTTON('OK'),AT(24,69,44,13),FONT('Arial',8,,FONT:regular),MSG('Do It'),TIP('Do It'),USE(?OkPrtOpt), |
  104.            DEFAULT
  105.        BUTTON('Cancel'),AT(82,69,44,13),FONT('Arial',8,,FONT:regular),MSG('Cancel Report'),TIP('Cancel Report'), |
  106.            USE(?CancelPrtOpt)
  107.        BUTTON('Options'),AT(138,69),FONT('Arial',8,,FONT:regular),MSG('Select Options'),TIP('Select Options'), |
  108.            USE(?TINPRINTSEL)
  109.      END
  110.  
  111. PrintxxxWindow WINDOW('Print Options'),AT(,,250,99),FONT('System',8,,FONT:bold),CENTER,SYSTEM,GRAY
  112.        OPTION('Copies / Collate'),AT(5,7,58,32),FONT('Arial',9,,FONT:regular),USE(?Option2),BOXED
  113.        END
  114.        SPIN(@N_3B),AT(28,19,20,8),FONT('Arial',8,,FONT:regular),MSG('Select Number Of Copies'),TIP('Select Number Of Copies'), |
  115.            USE(TINCOPIES),RANGE(1,15),STEP(1)
  116.        BUTTON,AT(226,13),MSG('Select A File'),TIP('Select A File'),USE(?PrintToFIle),ICON(ICON:Pick)
  117.        CHECK('Collate'),AT(9,27),FONT('Arial',8,,FONT:regular),MSG('Collate Report Copies'),TIP('Collate Report Copies'), |
  118.            USE(TINCOLLATE)
  119.        ENTRY(@s60),AT(75,25),MSG('Enter File Name'),TIP('Enter File Name'),USE(TINFILENAME)
  120.        ENTRY(@s50),AT(50,52),FONT('Arial',10,,FONT:bold),MSG('Current Printer Selected'),TIP('Current Printer Selected'), |
  121.            USE(TINCURPRINTER),SKIP,READONLY
  122.        STRING('Copies:'),AT(9,17),FONT('Arial',8,,FONT:regular)
  123.        CHECK('Print To FIle'),AT(75,15),FONT('Arial',8,,FONT:regular),MSG('Print To FIle'),TIP('Print To FIle'), |
  124.            USE(TINSAVEFILE)
  125.        OPTION('Print To File'),AT(71,7,169,32),FONT('Arial',8,,FONT:regular),USE(?option3),BOXED
  126.        END
  127.        STRING('Current Printer:'),AT(6,50),FONT('Arial',9,,FONT:regular)
  128.        BUTTON('OK'),AT(51,76,32,10),FONT('Arial',8,,FONT:regular),MSG('Accept Options'),TIP('Accept Options'), |
  129.            USE(?PrintXXXOK),DEFAULT
  130.        BUTTON('Cancel'),AT(99,76,32,10),FONT('Arial',8,,FONT:regular),MSG('Cancel'),TIP('Cancel'),USE(?PrintXXXCancel)
  131.        BUTTON('Select'),AT(145,76,32,10),FONT('Arial',8,,FONT:regular),MSG('Select A Printer'),TIP('Select A Printer'), |
  132.            USE(?PrintXXXSelect)
  133.      END
  134. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  135. #ENDIF
  136. #ENDIF
  137. #ENDAT
  138. #AT (%ProcedureSetup), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
  139. #IF (%TINReportViewerBox)
  140. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  141. LocalResponse = RequestCancelled
  142. DO PrintViewerOpt
  143. PRINTER{PROPPRINT:COLLATE} = TINCOLLATE
  144. PRINTER{PROPPRINT:COPIES}  = TINCOPIES
  145. IF TINSAVEFILE THEN
  146.   STOP(TINFILENAME)
  147.   PRINTER{PROPPRINT:PRINTTOFILE} = TRUE
  148.   PRINTER{PROPPRINT:PRINTTONAME} = CLIP(TINFILENAME)
  149. .
  150. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  151. #ENDIF
  152. #ENDAT
  153. #AT (%AfterOpeningReport), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
  154. #IF (%TINReportViewer)
  155. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  156. #!IF TINPRINTOPTION1 = 1
  157. #!%Report{Prop:Preview} = PrintPreviewImage
  158. #!END
  159. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  160. #ENDIF
  161. #ENDAT
  162. #AT(%BeforePrintPreview), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
  163. #IF (%TINReportViewer)
  164. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  165. IF LocalResponse = RequestCompleted
  166.   ENDPAGE(%Report)
  167.   CLOSE(ProgressWindow)
  168.   IF TINPRINTOPTION1 = 1
  169.     IF TIN_REPORTVIEWER(PrintPreviewQueue,'%TINReportViewerTitle') = RequestCompleted
  170.       %Report{PROP:FlushPreview} = True
  171.     END
  172.   ELSE
  173.       %Report{PROP:FlushPreview} = True
  174.   END
  175. END
  176. OMIT('***TINTOOLS***')
  177. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  178. #ENDIF
  179. #ENDAT
  180. #AT (%BeforeClosingReport), WHERE(%EnablePrintPreview AND %TINGLOBALVIEWER)
  181. #IF (%TINReportViewer)
  182. !-----------TINMAN SOFTWARE REPORT VIEWER--------------------------------
  183. ***TINTOOLS***
  184. !-----------TINMAN SOFTWARE REPORT VIE